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NEW RELEASES, VERSIONS, AND A WARNING 


Any programming endeavor of the magnitude of the MDBS software will 
necessarily continue to evolve over time. Realizing this, Micro Data 
Base Systems, Inc., vows to provide its users with updates to this 
version for a nominal handling fee. 

New versions of MDBS software will be considered as separate products. 
However, bona fide owners of previous versions are generally entitled 
to a preferential rate structure. 

Finally, each copy of our software is personalized to identify the 
licensee. There are several levels of this personalization, some of 
which involve encryption methods guaranteed to be combinator ially 
difficult to decypher. Our products have been produced with a very 
substantial investment of capital and labor, to say nothing of the 
years of prior involvement in the data base management area by our 
principals. Accordingly, we are seriously concerned about any 
unauthorized copying of our products and will take any and all 
available legal action against illegal copying or distribution of our 
products. 
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PREFACE 


Although the great majority of MDBS features and facilities are 
independent of the host operating system and host programming 
languages, there are some system specific aspects. These include the 
installation procedures, execution command lines, DML command forms, 
and data item-host language variable correspondences. This manual 
presents the system specific aspects that are needed in order to use 
MDBS DDL/DMS, MDBS-QRS, MDBS-RCV, MDBS-DMU and MDBS-IDML. 

This manual consists of the following eight chapters: 


I. FILE NAMES 

A. File Names for MDBS Software 

B. Fully Qualified File Names in CP/M 

C. Special Keys when Using Interactive MDBS Software under 
CP/M 

D. MP/M Environments 

E. Contention Count Time 

F. The Renaming Utility 

II. INSTALLATION and TESTING PROCEDURES 

A. Installing MDBS. DDL and MDBS.DMS 

B. MDBS Linker 

C. Testing 

D. Alternative MDBS.DMS Installation Method 

III. INVOKING MDBS. DDL 


IV. OPERATING SYSTEM DEPENDENT DEFAULTS 


A. File name defaults for areas 

B. File extension defaults 

C. Pages per area default 

D. Page size default 

E. Page size restrictions 


V. DATA ITEM - HOST LANGUAGE VARIABLE CORRESPONDENCE 


A. Non-numeric Data Items 

B. Integer Data Items 

C. Unsigned Data Items 

D. Internal Decimal Data Items 

E. Real Data Items 

F. Repeating Data Items 


VI. CONTROL PROCEDURES 


A. Running an Application Program 

B. Special Link Files 

C. Alternative Control Procedures for Chaining 
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VII. 


DML COMMAND FORMAT 


VIII. 


Appendix 

Appendix 

Appendix 

Appendix 


A. Coinmand Status 

B. Special Cominands 

C. Open and Close Coinmand Examples 

D. Find Command Examples 

E. Get and Put Command Examples 

F. Assignment Command Examples 

G. Utility Command Examples 

H. Chaining 

INTERACTIVE ADD-ON PACKAGES 


A. MDBS-CNV 

B. MDBS-IDML 

C. MDBS-QRS 

D. MDBS-DMU 

E. MDBS-RCV 


A. Direct and Indirect Invocation 

B. DML Retrieval/Write Command Groups 

C. First Alternative MDBS DMS Installation Method 

D. Second Alternative Installation Method 
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1. FILE NAMES 


A. File Names for MDBS Software 

The MDBS software and the software of MDBS add-on packages are 
furnished in a collection of files. In the CP/M;BASCOM environment, 
these files have the following names: 


DMS.REL MDBS.DMS library (standard form) 

DBRUN.REL runtime loader component 

BASCOM80.REL BASCOH language interface 

LIBASCOM.REL BASCOM language interface- indirect form extension 

A.REL MDBS.DMS component 

OSCPM.REL CP/M interface 

Z.REL MDBS.DMS component 

DMSTAB.MAC MDBS.DMS component 

RTL.REL MDBS.DMS library (RTL form) 

DDL.COM MDBS. DDL object code 

DDLl.OVL MDBS. DDL overlay 1 

DDL2.0VL MDBS. DDL overlay 2 

DDL3.0VL MDBS. DDL overlay 3 

SAMPLE. BAS direct call sample program 

SAMPLEI.BAS indirect call sample program 

SAMPLE. DDL sample ddl specification 

QRS.COM MDBS.QRS object code 

QRSO.OVL QRS support overlay 0 

QRSl.OVL QRS support overlay 1 

QRS2.0VL QRS support overlay 2 

QRS3.0VL QRS support overlay 3 

QRS4.0VL QRS support overlay 4 

QRS5.0VL QRS support overlay 5 

QRS6.0VL QRS support overlay 6 

QRS7.0VL QRS support overlay 7 

QRS8.0VL QRS support overlay 8 

QRS9.0VL QRS support overlay 9 

QRSIO.OVL QRS support overlay 10 

IDML.COM MDBS.IDML object code 

IDMLl.OVL IDML support overlay 1 

IDML2.0VL IDML support overlay 2 

IDML3.0VL IDML support overlay 3 

IDML4.0VL IDML support overlay 4 

IDML5.0VL IDML support overlay 5 

IDML6.0VL IDML support overlay 6 

IDML7.0VL IDML support overlay 7 

IDML8.0VL IDML support overlay 8 

DMU.COM MDBS.DMU object code 

RCV.COM object code for the MDBS-RTL recovery programiRCV 

CNV.COM object code for the DDL conversion program:CNV 

RlWO.REL indirect DML reference table: 

level 1 reads, no writes 
RlWl.REL indirect DML reference table: 

level 1 reads, level 1 writes 
R1W2.REL indirect DML reference table: 

level 1 reads, level 2 writes 
R1W3.REL indirect DML reference table: 

level 1 reads, level 3 writes 
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R1W4 .REL 

R2W0 .REL 

R2W1.REL 

R2W2.REL 

R2W3 -REL 

R2W4 .REL 

R3W0 .REL 

R3W1.REL 

R3W2.REL 

R3W3 .REL 

R3W4 .REL 

MLINK.COM 

MLINKl.OVL 

MLINK2.0VL 

MRENAME.COM 

MKDMS 

MKTAB 

FASTIO.REL 

NOCALC. REL 
NOFLOAT. REL 

NOREAL.REL 
NOIDEC.REL 
NO DATE. REL 
NOTIME. REL 
COMDEF.REL 
SAMPLECl .BAS 
SAMPLEC2.BAS 
SAMPLEC3 .BAS 
SAMPLEC4 . BAS 
SAMPLEC5.BAS 


indirect DML 
level 1 
indirect DML 
level 2 
indirect DML 
level 2 
indirect DML 
level 2 
indirect DML 
level 2 
indirect DML 
level 2 
indirect DML 
level 3 
indirect DML 
level 3 
indirect DML 
level 3 
indirect DML 
level 3 
indirect DML 
level 3 
MDBS linker 


reference table; 
reads, level 4 writes 
reference table; 
reads, no writes 
reference table; 
reads, level 1 writes 
reference table; 
reads, level 2 writes 
reference table; 
reads, level 3 writes 
reference table: 
reads, level 4 writes 
reference table; 
reads, no writes 
reference table: 
reads, level 1 writes 
reference table: 
reads, level 2 writes 
reference table: 
reads, level 3 writes 
reference table: 
reads, level 4 writes 
utility 


MLINK overlay for pass 1 
MLINK overlay for pass 2 
DML renaming utility 
creates selective DMS runtime 
creates entry point table for 
link file for overriding 
mechanism 

link file for disabling CALC 
link file for disabling 
manipulation 
file for disabling real 
file for disabling idee 
file for disabling date 
file for disabling time 


module 
DMS runtime 
CP/M disk 


module 

access 


link 
link 
link 
link 
common 
sample 
sample 
sample 
sample 
sample 


block definitions for chaining 


real and idee data 

data manipulation 
data manipulation 
data manipulation 
data manipulation 


program 

chained 

chained 

chained 

chained 


using chaining 

module 

module 

module 

module 


If a license is not purchased for the RTL form of MDBS and for 
all MDBS add-on packages, then some of these files will not be 
furnished. All of the link files for disabling various MDBS features 
are not always available in all environments, under all releases of 
MDBS. 
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B 


Fully Qualified File Names in CP/M 


A fully qualified CP/M file name consists of a valid CP/M file 
name, optionally prefaced by a drive specification. A CP/M file name 
consists of from one to eight alphanumeric characters, with an 
optional extension of up to three alphanumeric characters. If a drive 
specification is used, it must be A, B, ..., or P and it must be 
followed by a colon. If TRIAL. DDL is a CP/M file name for a file on 
drive E, then the fully qualified file name is: 

E: TRIAL. DDL 

If a drive specification is omitted from a fully qualified file name, 
then the default drive directory is assumed. Note that any file names 
specified in a DDL description should be enclosed in double quotes 
(" "). File name (and extension) defaults are described in 
Chapter IV. 

C. Special Keys when Using Interactive MDBS Software under CP/M 


RETURN (ENTER) terminates an input line 

CONTROL-X interrupts a line entry and restarts the input 

line 

CONTROL-H causes a character deletion in the line being 

input 

CONTROL-I causes a tab character to be placed in the line 

CONTROL-C returns control to the operating system (hard 

interrupt) 

ESCAPE causes the prompt of the interactive software to 

appear (soft interrupt) 

CONTROL-P toggles the interactive software output between 

the console and printer 

CONTROL-S causes a pause in the output from interactive 

sof tware 

CONTROL-Q causes output from interactive software to resume. 


following a CONTROL-S pause 


D. MP/M Environments 


All MDBS software for use under CP/M (versions 2.2 and later) can 
also be used under MP/M. This manual applies equally to MP/M and 
CP/M. Note; MP/M is too large to allow the use of MDBS-IDML or MDBS- 
QRS with a one user configuration. They can be used under MP/M with 
the 1-4, and over 4 multiuser versions of MDBS. 


MDBS access speeds depend on many factors including the extent of 
an application, the quality of schema design, the host language used, 
the quality of application programming, data volume, the hardware 
used, and the operating system. Due to the directory utilization 
approaches of CP/M and MP/M, it is generally true that MDBS provides 
faster access under CP/M than under MP/M. In certain MP/M 
environments, it is possible to override the usual MP/M directory- 
access mechanism to achieve substantial increases in MDBS access 
speeds. Where possible. Micro Data Base Systems, Inc. will do the 
work necessary to override this mechanism. Contact Micro Data Base 
Systems, Inc. for information about this service and the fees charged 
for performing this service. 
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E. 


Contention Count Time 


The unit of time used with MP/M for the DMS contention count 
command is one clock tick (i.e., 1/50 or 1/60 of a second). See the 
MCC command in the MDBS DMS Manual. 


F. The Renaming Utility 

The MRENAME.COM file contains a utility that can be used to 
change the names of DML commands. For instance, you can use this 
utility to change the name PUTC to DBPUTC. Before invoking this 
utility, create a file (call it DML. REN) containing the changes to be 
made. Each line of this file begins with the name of an existing DML 
command, followed by a blank space, followed by the new name of the 
DML command to be used in your application programs. The renaming is 
accomplished by entering the following operating system command line: 

MRENAME DMS.REL DML. REN 

This assumes that DMS.REL and DML.REN are on the default drive. Note 
that MRENAME may take a considerable period of time to execute. The 
output is a file called DMS. PH N. Copy DMS. PH N to a different working 
disk, givng it the name DMS.REL. This new DMS.REL is used in place of 
the DMS.REL supplied on the distribution disk. 
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II. INSTALLATION and TESTING PROCEDDRES 


A. Installation 

1. MDBS. DDL 

MDBS. DDL is installed by simply copying the DDL.COM, 
DDLl.OVL, DDL2.0VL, and DDL3.0VL files to a working disk. 
Because MDBS. DDL uses an overlay technique, this working 
disk roust reside on the default drive in order to execute. 

2. MDBS.DMS 

MDBS.DMS can be used in either the direct or indirect forms. 
If you intend to use the indirect form, then you need to 
select one of the fifteen files RlWO, RlWl, ..., R3W4. 

Appendix B shows the DML commands included on each of these 
files. You should select a file that includes all DML 
commands which are to be used in your application program. 
Alternatively, you can specify a file of your own. This 
file is created by editing DMSTAB.MAC to eliminate any DML 
commands that are not needed by your application program. 
This edited file must then be assembled by an assembler that 
produces REL output. The resulting REL file can then be 
used in place of RlWO, RlWl, ..., or R3W4 in the 
installation procedure. The file that you choose or create 
for indirect DML usage will be referred to as RnWm.REL in 
the following discussion. 

Prior to linking MDBS.DMS and your application program, you 
need to create a CP/M DMS library called CPMDMS.REL. This 
requires the use of a library manager (e.g., LIB). Create 
CPMDMS.REL by entering the following operating system 
command line: 

LIB CPMDMS = DMS,OSCPM,A,Z/E 

This assumes that the DMS. REL, OSCPM.REL, A. REL, and Z.REL 
files are on the default drive. If you intend to use MDBS- 
RTL, the same approach is employed, except use RTL instead 
of DMS and CPMRTL instead of CPMDMS. 

Now copy B ASCO M 80. R EL, Ll B AS C 0 M . R E L, RnWm.REL, and 
CPMDMS.REL (or CPMRTL. REL) to a working disk. 
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B. 


MDBS Linker 


The MDBS linker for selectively linking MDBS.DMS with your 
application program is on the MLINK.COM, MLINKl.OVL, and MLINK2.0VL 
files. MLINK is invoked by: 

MLINK pgm BASCOM80 -LCPMDMS -LBASLIB 

where pgm denotes the fully qualified file name (or names), containing 
compiled program (s) to be linked. If more than one is specified, they 
should be separated by spaces. The linked program is written to a 
file having the same name as the first program file used with MLINK, 
except it has a .COM extension. This output file will reside on the 
same drive as the first program file. An alternative output file name 
(and/or drive) can be specified by including -Oalt prior to pgm, where 
alt is the fully qualified alternative output file name (MLINK -Oalt 
pgm ....). The -L option indicates that MLINK will selectively link 
needed object modules from the indicated REL file (e.g., CPMDMS). As 
indicated in the following documentation, there are cases where a -KO 
argument must immediately follow MLINK. 


C. Testing 

After the installation of MDBS. DDL and MDBS.DMS, the sample DDL 
specification and sample application program can be used to test the 
success of the installation procedure. Two sample application 
programs are provided. One uses direct DML invocation (SAMPLE.B AS) . 
The other uses the indirect form of DML invocation (SA MPL El. B AS) . We 
strongly recommend the direct form. The indirect interface is 
included only as a convenience for those who have developed 
application programs with MBASIC and want to use those same programs 
in the BASCOM environment with minimal alterations. We do not 
generally recommend the indirect form since it uses more memory, 
results in longer programs, and is not guaranteed to be supported in 
the future. 

As the following examples illustrate, the method for utilizing 
MDBS.DMS differs depending on whether direct or indirect invocation is 
employed and depending on the version of BASCOM that you have. 

1. To initialize the sample data base, enter: 

DDL SAMPLE. DDL 

This assumes that the DDL working disk is on the default 
drive . 

2. To compile the sample application program, enter: 

BASCOM =B: SAMPLE/E/C 

This assumes that SAMPLE. BAS is on drive B. 
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3. For BASCOM versions belov 5.3 use MLINK as follows: 

MLINK BtSAMPLE B:BASCOM80 -LB:CPMDMS -LB:BASLIB 
For BASCOH versions 5.3 and greater use MLINK as follows 
MLINK BrSAMPLE B:BASCOM80 -LBtCPMDMS -LB:OBSLIB 
This assumes that you use the /O switch during compilation. 

4. To execute the linked sample application program, enter: 

B: SAMPLE 

INDIEECI IMQCMIQH 

1. To utilize the sample data base, enter: 

DDL SAMPLE. DDL 

This assumes that the DDL working disk is on the default 
drive . 

2. To compile the sample application program, enter: 

BASCOM =B;SAMPLEI/E 

This assumes that SAMPLEI.BAS is on drive B. 

3. The sample program needs a retrieval level of at least 2 and 
a write level of at least 1, so the file R2W1 is used here. 
These examples assume that all files to be linked are on 
drive B. 

For BASCOM versions below 5.3 use MLINK as follows: 

MLINK B:SAMPLE[ BiLlBASCOM B;R2W1 B;BASCOM80 -LBiCPMDMS -LB:BASLIB 

For BASCOH versions 5.3 and greater use MLINK in the same 
way except substitute -LB:OBSLIB for -LBrBASLIB. This 
assumes that you used the /O switch during compilation. 

4. To execute the linked sample application program, enter: 

BiSAMPLEI 


D. Alternative MDBS.DMS Installation Method 

Limitations of the L80 linker do not allow it to support BASCOM 
chaining schemes in conjunction with MDBS. There are two alternative 
installation methods which do allow chaining. One involves creating a 
DMS runtime module. This is described in Appendix C and is 
recommended in cases where there is sufficient memory, because it 
saves linking and chaining time. If there is insufficient memory for 
this method, the approach described in Appendix D should be used. 
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III. INVOKING MDBS. DDL 


The operating system command string for executing MDBS. DDL is: 

DDL f ully-qualif ied-f ile-name -Bnnnn 

where the fully-qualified-file-name and -Bnnnn arguments are optional. 
If the fully-qualified-file-name is omitted, then the MDBS. DDL program 
responds with the prompt and is ready for interactive usage (see 
VI-A,B of the MDBS DDL Manual). If a fully-qualified-file-name is 
specified, then MDBS. DDL is executed on a batch basis (see VI-C of the 
MDBS DDL Manual). The contents of this file must be a valid DDL 
specification. For instance, 

DDL TRIAL. DDL 

will cause MDBS. DDL to analyze the DDL specification contained in the 
TRIAL. DDL file on the default drive. 

The other optional argument (-Bnnnn) can be ignored in this 
environment. 
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IV. OPERATING SYSTEM DEPENDENT DDL DEFAULTS 


A. File name defaults for areas 

If a file name is not specified for the main area in the 
identification section of a DDL specification, then the main area is 
assigned to a file having the same name as the data base. This file 
will have a ,DB extension. If a file name is not specified for an 
area defined in the area section of a DDL specification, then that 
area is assigned to a file having the same name as the area. This 

file will have a .DBA extension. The default file names will be in 
upper case. 


B. File extension defaults 

If a file name is specified without an extention a default 
extension is used. The default extensions are: 


for a main area file .DB 

for an extra area file .DBA 

for a file written by MDBS. DDL .DDL 

for RCV scratch files .$$$ 

for a page image file .PIF 

for a transaction log file .LOG 

for QRS WRITE or SPEW files .TXT 


In order to suppress the default extension for a file, the fully 
qualified file name should end with a decimal point. 


C. Pages per area default 

If the number of pages for an area is not stated in a DDL 
specification, then the default value of 50 pages is used. This 

default is for both the main area and any extra areas. 


D. Page size default 

If the page size for an area is not stated in a DDL 
specification, then the default value of 512 bytes per page is used. 
This default is for both the main area and any extra areas. 


E. Page size restrictions 

The minimum page size for any area is 256 bytes. 
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V. DATA ITEM - HOST LANGDAGE VARIABLE CORRESPONDENCE 


This chapter shows the type, size, and value correspondences that 
exist between MDBS data items and BASCOM variables. Correct usage of 
DML create, put, and get commands depends on a knowledge of these 
correspondences. Other DML commands (e.g., FMSK) also require input 
from a BASCOM variable, where the variable must be consistent with a 
data item of a particular type and size. 


A, Non-numeric Data Items 



binary n 

character n 

string n 

date 
time 


B. Integer Data Items 

The host language variables that are consistent with various 
sizes of an integer data item are presented in Table V-1. This table 
also shows the mappings of data values from BASCOM variables into 
integer data items during data storage (e.g., CRS, PFM, etc.). 
Similarly, the mappings of data values from integer data items to 
corresponding BASCOM variables during data retrieval (e.g., GFM) are 
shown . 

As an example, when storing a data value from a BASCOM integer 
variable into a one byte integer data item, the value must be in the 
range -128 to 127. Any other value for the BASCOM integer variable 
will not be permitted and the DML command that attempts to store such 
a value will return a command status of 33. When retrieving a data 
value from a three byte integer data item into a BASCOM integer 
variable, an appropriate value in the range -32768 to 32767 is 
deposited in the BASCOM variable. If the stored value is outside of 
this range, then the contents of the BASCOM variable will be 
undefined. As a third example, suppose we want to store the value 
32700 into a four byte integer data item. This is accomplished with a 
put command that uses a BASCOM integer variable havina the value 
32700. 


str mg (e. g. , A?) n 
string n 
string 

string 10 
string 9 
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Table V-1 . 


Integer Correspondences 


MDBS Data Item 

BASCOM 

Variable 

Storing Data 

He t ri evi n 

5 Da * a 

MDBS type MDBS si ze 

BASCOM 

type 

Source : 

BASCOM variable range 

Ta rget: 

data i tern range 

Source: 

data item range 

Target : 

EASCOM variable range 

integer 1 

integer 
(e.g., h%) 

-32768 to -129 
-128 to 127 
128 to 32767 

undef i ned 
-128 to 127 
undefined 

-128 to 127 

-128 to 127 

integer 2 

integer 
(e.g., A?) 

-32768 to 32767 

' 

-32768 to 32767 

-52760 to 52767 

j 

-32768 to 32767 

integer n>2 

integer 
(e.g., A^) 

— 

-32768 to 32767 

-32768 to 32767 

< -32769 

-32768 to 32767 
> 32768 

unde f i ned 
-52768 to 52767 

undefined 


C. Unsigned Data Items 


The host language variables that are consistent with various 
sizes of an unsigned data item are presented in Table V-2. This table 
also shows the mappings of data values from BASCOM variables into 
unsigned data items during data storage (e.g., CRS, PUTM, etc.)* 
Similarly, the mappings of data values from unsigned data items to 
corresponding BASCOM variables during data retrieval (e.g., GETM) are 
shown. 

As an example, when storing a data value from BASCOM integer 
variable into a one byte unsigned data item, the value must be in the 
range 0 to 255. If the value is in the range 256 to 65535 or the 
range -32768 to -1, it will not be permitted and the DML command that 
attempts to store such a value will return a command status of 33. 
When retrieving the value 65534 from a 3 byte unsigned data item into 
a BASCOM integer variable, the value -2 is deposited into the BASCOM 
variable. As a third example, suppose we want to store the value 
32770 into a two byte unsigned data item. This is accomplished with a 
put command that uses a BASCOM integer variable having the value 
-32766. 


D. Internal Decimal Data Items 

The host language variables that are consistent with various 
sizes of an idee data item are presented in Table V-3. This table 
also shows the largest relative error that can occur when storing data 
into various sizes of idee data items and when retrieving data from 
various sizes of idee data items. 

When storing data values into an idee data item, there is no 
potential for overflow. When retrieving data from an idee data item 
whose size does not exceed eight digits (i.e., n ^ 8) , overflow occurs 
if the stored data value has an absolute value greater than 
170141178389866830818769697729071284224. When retrieving data from an 
idee data item whose size exceeds eight digits (i.e., n > 8) , overflow 
occurs if the stored data value has an absolute value greater than 
170141178389866830818769697729071284224. 

There is little incentive to use internal decimal data items when 
the primary host languages are BASCOM and FORTRAN. Internal decimal 
interfaces are present to permit communication (through BASCOM) to 
data bases that are also used with host languages such as COBOL. 
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Table V-2. Unsigned Correspondences 


MDBS Data Item 

BASCOH 

Variable 

storing Data 

Retrieving Data 

MDES type MDBS size 

BASCCM 

type 

Source : 

EASCOM variable range 

Target : 

data item range 

Source : 

data item range 

Target ; 

EASCOM variable range 

unsigned 1 

integer 
(e.g., A?) 

-32768 to -I 

0 to 255 
256 to 32767 

undefined 

0 to 255 
undefi ned 

0 to 255 

0 to 255 

unsigned 2 

integer 
(e.g., A%) 

-32768 to -1 

0 to 32767 

32768 to 65535 
0 to 32767 

0 to 32767 
32766 to 65535 

0 to 32767 
-32768 to -1 

unsigned n>2 

D 

-32768 to -1 

0 to 32767 

52768 to 65535 
0 to 32767 

: 

0 to 32767 
32768 to 65535 
> 65536 

0 to 32767 
-32768 to -1 

undefined 










Table V-3. Internal Decimal Correspondences 


MDBS Data Item 

BAS COM Variable 

Storing Data 

Retrieving Data 

MDBS type MDBS size 

BAS COM type 

Largest Relative Error 

Largest Relative Error 

idee 1 or 2 

single preeision 
(e.g. , A! ) 

5.000 * 10~3 

2.980 * 10“^ 

idee 3 or 4 

single precision 

» 

o 

o 

o 

Ul 

2.980 * 10“® 

idee 5 or 6 

single precision 

5.000 * 10~7 

2.980 * 10“® 

idee 7 or 8 

single precision 

5.000 * 10~9 

2.980 * 10"® 

idee 9 or 10 

double precision 
(e.E. , A#) 

5.000 * 10~^1 

6.94 * 10"^® 

idee 11 or 12 

double precision 

5.000 * 10"13 

6.94 * 10"^® 

idee n >12 

double precision 

-21^1 
10 2 
2 

6.94 * 10"1® 


E. Real Data Items 

The host language variables that are consistent with various 
sizes of a real data item are presented in Table V-4. This table 
shows the largest relative error that can occur when storing data into 
various sizes of real data items and when retrieving data from various 
sizes of real data items. 

Table IV also shows the overflow potential when storing and 
retrieving data. For instance, an attempt to store 1.85 * 10^^ into a 
three byte real data item will result in an undefined value for that 
data item value. 
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Table V-4. Real Correspondences 


BAS COM 

MDBS Data Item Variable 


BAS COM 

MDBS type MDBS size type 



Storing Data 

Absolute Value 
Beyond Which 
Overflow Occurs 

Largest Relative Error 

1.698 * 10^® 

1.953 * 10"^ 

1.701 * 10^® 

7.629 * 10“^ 

no overflow 

0 

1.701 * 10^® 

1.164 * 10“^® 

1,.701 * 10^® 

4.549 * 10“^^ 

1.701 * 10^® 

1.770 * 10“^^ 

no overflow 

0 

no overflow 

0 


Retrieving Data 


Absolute Value 
Beyond Which 



no 

overf low 

no 

overf low 

no 

overflow 

no 

overflow 

no 

overf low 

no 

overf low 

no 

overflow 

1. 

o 

O 

00 



6.94 * 10 













































F. Repeating Data Items 

When storing data into or retrieving data from a repeating data 
item, a BASCOM array is used. The appropriate kind of array for each 
data item type and size is shown below, where m represents the number 
of replications defined for data item in the DDL specification (with 
an occurs clause). Here, A is the host language array being used for 
storage or retrieval. This assumes that all array subscripting begins 
at 0 (not 1) . 


Repeating Data Item 



binary 

n 

character 

n 

string 

n 

date 

- 

time 

- 

integer 

n 

unsigned 

n 

idee 

idee 

n=l ,2 , 
n 2 

real 

real 

n=2 ,: 
n 2 



DIM A! (m-1) 
DIM A# (m-1) 
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VI. CONTROL PROCEDDRES 


A. Running an Application Program 

The following steps are used to control the selective interfacing 
of MDBS.DMS routines with a BASCOM application program. They assume 
that CPMDMS (or CPMRTL) has been created as described in Chapter II. 

1. Create your application program using either the direct or 
indirect DML command form (see Chapter VII). We strongly 
recommend the direct form. Continuing support of the 
indirect form is not guaranteed. 

2. Compile your program in the usual manner. For instance, 

BASCOM PRG 

where PRG is the file containing the BASCOM program source 
code . 

3. Selectively link your compiled program and MDBS.DMS 
together. This assumes that all files to be linked are on 
the working disk. It also assumes that this disk is on the 
default drive. 

HI£££I IMVOCAIIDH 

For BASCOM versions below 5.3 use MLINK as follows: 

MLINK PRG BASCOM80 -LCPMDMS -LBASLIB 

For BASCOM versions 5.3 and greater, compile with the /O 
switch and use the same MLINK line except -LOBSLIB replaces 
-LBASLIB. 


IM3I££CT lMQ£MlQn 

For BASCOM versions below 5.3 use MLINK as follows: 

MLINK PRG LIBASCOM RnWm BASCOM80 -LCPMDMS -LBASLIB 

For BASCOM versions 5.3 and greater, compile with the /O 
switch and use the same MLINK line except -LOBSLIB replaces 
-LBASLIB. 

4. Execute the linked program; 

PRG 
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B. Special Link Files 

Special link files are provided which can be used to optimize 
performance in certain situations. These are FASTIO, NOCALC, NOFLOAT, 
NOREAL, NOIDEC, NODATE, and NOTIME. These are not always available in 
all environments under all releases of MDBS. Those which are 
available can be linked with the application program. If FASTIO is 
desired, you should create CPMDMS with the command line 

LIB CPMDMS = DMS, FASTIO, OSCPM, A, Z/E 

instead of the command line shown in Chapter II. If NOCALC is 
desired, then it is linked by inserting NOCALC immediately prior to 
BASCOM80 in the MLINK command line. If you desire to link any of the 
other special files, then insert the file name(s) prior to BASCOM80 
a nd use -LBASCOM80 in place of BASCOM80 on the MLINK command line. 

Each of the special link files (except FASTIO) disables certain 
MDBS features. If you invoke a DML command that attempts to process a 
disabled feature, then a command status of 34 results. 

If FASTIO is linked in, then the data base control system will 
not use conventional CP/M disk access facilities. Instead, a faster 
disk I/O mechanism incorporating buffering of FCBs is used. Due to 
various environments' peculiarities, FASTIO is not guaranteed to 
function or improve performance in all possible CP/M and "CP/M-like" 
environments. Its main advantage is realized with version 2.2 CP/M. 

If NOCALC is linked in, then manipulation of calc records is 
prohibited. This can save space (typically about 650 bytes), 
resulting in faster processing. NOCALC is very valuable when calc 
records are not used. 

If NOFLOAT is linked in, the manipulation of real and idee data 
items is prohibited. This can save space (typically about 1150 bytes) 
and results in faster processing. NOFLOAT is valuable when no idee or 
real data item processing is needed. 

If NOREAL is linked in, the manipulation of real data items is 
prohibited. This may save space, resulting in faster processing. 
NOREAL is valuable when no real data item processing is needed. 

If NOIDEC is linked in, the manipulation of idee data items is 
prohibited. This may save space, resulting in faster processing. 
NOIDEC is valuable when no idee data item processing is needed. 

If NODATE is linked in, the manipulation of date data items is 
prohibited. This can save space (typically about 450 bytes), 
resulting in faster processing. NODATE is valuable when no date data 
item processing is needed. 

If NOTIME is linked in, the manipulation of time data items is 
prohibited. This can save space (typically about 170 bytes) and 
results in faster processing. NOTIME is valuable when no time data 
item processing is needed. 
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C. Alternative Control Procedures for Chaining 

If the alternative installation method described in Appendix C is 
used, rather than the above methods, then the following control 
procedure is used for running an application program. 

1. Create your application program using the direct DML command 
form . 

2. Compile the program in the usual manner. For instance, 

BASCOM =PRG/E/C 

where PRG is the file containing the BASCOM program source 
code . 

3. Now resolve unsatisfied externals as follows; 

L80 PRG,DMS7000 ,PRG/N/E 

4. Run the program by executing DMS7000.COM, using the 
previously linked program PRG as an argument. 

DMS7000 PRG 


If the alternative installation method described in Appendix D is 
used, then the control procedure described in Appendix D applies. 


(C) COPYRIGHT 1981,1982 Micro Data Base Systems, Inc. 


VI-3 



This page intentionally left blank. 


Do not purchase or otherwise accept MDBS III software products not 
bearing the official colored MDBS diskette/ tape label. The serial 
number on the label uniquely identifies the system licensee. If you 
are approached by a person or organization attempting to illegally 
distribute MDBS products, please contact 

Micro Data Base Systems, Inc. 

P.O. Box 248 

Lafayette, IN 47902 

(317) 448-1616 TWX810-342-1881 

We appreciate your assistance in preventing software piracy. 


Sample of MDBS III diskette/ tape label; 



VI-4 


(C) COPYRIGHT 1981,1982 Micro Data Base Systems, Inc. 


VII. DML COMMAND FORM 


BASCOM is a oriented language that permits or 
indiiL££t invocation of DML commands {see the block/direct or 
block/indirect example for each DML command in the MDBS DMS Manual). 
The precise calling forms for both direct and indirect DML usage are 
presented in Appendix A and are illustrated in the examples below. 
Exclusive use of the direct approach is recommended, since it is 
easier to use. The indirect is provided solely for compatability with 
interpretive BASIC (MBASIC), which does not support direct invocation. 
There is no guarantee of continuing support for the indirect approach. 


A. Command Status 

The command status variable must be an integer variable. 


B. Special Commands 

The VARCS, VARCMD, SETPBF and DEFINE commands are required in 
this environment. The EXTEND, UNDEF and ALTEOS commands can also be 
used. 

The DML command used in any application program must be 

VARCS. For instance, if the command status variable is named E0%, 
then the first DML command is 

CALL VARCS (E0%) 

The s econd DML command used in any application program m.ust be 
VARCMD. This command is peculiar to MBASIC and BASCOM. Its argument 
is a host language string variable (e.g., CMD$). When a DML command 
(other than VARCS, VARCMD, DEFINE, EXTEND, UNDEFINE, and SETPBF) is 
invoked, it uses the value of CMD$ as its command string. For 
instance, to declare the command string variable CMD$: 

CALL VARCMD (CMD$) 

As an example of SETPBF, 4096 bytes can be allocated for program 
buffers as follows; 

DIM DMSBUFFER% (2047) 

1% = 4096 

CALL SETPBF (DMSBUFFER% ( 0 ) , 1% ) 

Since integers are two bytes and DMSBUFFER% subscripting begins with 
0, the dimension of DMSBUFFER% is declared to be half of the desired 
buffer size minus 1. 

Suppose that we want to create a data block called BLK, 
consisting of the two variables VAR1% and VAR2%. The following 
examples show how to accomplish this in the direct and indirect forms. 
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DIEE.CT 


INDIRECT 


X$="BLK" ;X%=2 X$= "DEFINE , BLK" ;X%=2 

CALL DEFINE (X$,X% ,VAR1% ,VAR2%) CALL DMSD ( E0% , X$ , X% , VARl% , VAR2 % ) 


To extend BLK to include another variable (VAR3%) : 


DIRECT 

X$="BLK" :X%=1 
CALL EXTEND (X$,X%,VAR3%) 
To undefine all data blocks: 


INDIRECT 

X$="EXTEND,BLK" :X%=1 
CALL DMSD(E0%,X$,X%,VAR3%) 


DIRECT 


CALL UNDER 


X$="UNDEF" 

CALL DMSD(E0%,X$) 


We recommend using ALTEOS, because it simplifies command status 
error checking. ALTEOS has the effect of changing the 255 end-of-set 
message to -1. 


DIRECT 


INDIRECT 


CALL ALTEOS 


CMD$= "ALTEOS" 
CALL DMS 


Co Open and Close Command Examples 


X$="OBLK" :X%=4 

CALL DEFINE (X$,X%,DBU$,DBP$, - 
DBO$,DBF$) 


IRDIRECI 

X$="DEFINE,OBLK" :X%=4 
CALL DMSD(E0% ,X$,X%,DBU$,DBP$, 
DBO$,DBF$) 


CMD$="OBLK" 
CALL DBOPN 


CMD$="DBOPN,OBLK" 
CALL DMS 


« 

CALL DBCLS 


CMD$= "DBCLS" 
CALL DMS 
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D. Find Command Examples 

DIRECT INDIRECT 

X$="BLK" :X%=1 X$= "DEFINE, BLK " ;X%=1 

CALL DEFINE (X$,X%,VAR%) CALL DMSD (E0% , X$ , X% , VAR% ) 


• • 

CMD$="SET1 ,BLK" CMD$= "FMSK , SETl , BLK" 

CALL FMSK CALL DMS 

Here, EETl is the name of a set that has been specified in a DDL 
specification. 


E. Get and Put Command Examples 
J2IEE.CJ 


X$="BLK" :X%=1 

CALL DEFINE (X$,X%, VAR!) 


X$="DEFINE,BLK" :X%=1 
CALL DMSD(E0% ,X$,X%,VAR!) 


CMD$="YTDEARN,BLK' 
CALL GFC 

VAR !=VAR 1+1029. 00 
CALL PFC 


• 

CMD $= ”G FC , YTDEARN , BLK ' 
CALL DMS 

VAR !=VAR 1+1029. 00 
CMD$="PFC, YTDEARN, BLK' 
CALL DMS 


When using Get or Put commands, care should be 
taken to initialize any program variable that corresponds to a 
character data item. The length of each such variable should be 
initialized to the maximum length declared in the DDL 
specification for the corresponding data item. Failure to 
observe this rule yields a command status error of 33. 
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F 


Assignment Command Examples 


X$="BLK" :X%=1 

CALL DEFINE (X$ ,X% ,VAR%) 


VAR%=3 

CMD$="SET1 ,BLK" 
CALL SMU 


imiBEQl 

X$="DEFINE,BLK";X%=1 
CALL DMSD(E0% ,X$ ,X% ,VAR%) 


VAR%=3 

CMD$="SMU,SET1 ,BLK" 
CALL DMS 


CMD$="SET1 ,SET2" 

CALL SOM 

Here, SETl and SET2 are names of 
DDL specification. 


CMD$="SET1 ,SET2" 

CALL DMS 

ts that have been specified in a 


G. Otility Command Examples 

X$="BLK1" :Y$="BLK2" :X%=1 
CALL DEFINE (X$ ,X% ,VAR%) 
CALL DEFINE (Y$,X%,VAR$) 


« 

CMD$="SET1 ,BLK1" 
CALL CMC 


CMD$="SET3 ,BLK2" 
CALL GTM 


X$="DEFINE,BLK1" 
Y$="DEFINE, BLK2" :X%=1 
CALL DMSD(EO%,X$,X%,VAR%) 
CALL DMSD(E0% ,Y$,X%,VAR$) 


CMD $ = "CMC , SETl , BLKl " 
CALL DMS 


CMD$="GTM,SET3 ,BLK2" 
CALL DMS 


• • 

CMD$="SALEMP, POSSESS" 

CALL TOT CMD$="TOT,SALEMP, POSSESS" 

CALL DMS 

Here, SETl, SET3 and POSSESS are names of sets that have been 
specified in a DDL specification. As shown in Table V-2, VAR% must be 
integer (i.e., consistent with a 4 byte unsigned data item). Notice 
that RNAM$ is character, since GTM requires a variable consistent with 
an 8 byte character data item. The record type name returned by GTM 
will be in upper case, with blank fill (this same convention also 
holds for GTO, GTC). 

H. Chaining 

Immediately prior to chaining, DBSAVE should be invoked. 
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VIII. INTERACTIVE ADD-ON PACKAGES 


MDBS add-on packages are provided on COM files. The packages can 
be invoked as follows: 


A. MDBS-CNV 

To invoke the interactive MDBS.CNV program, the following 
operating system command line is used: 

CNV 


B. MDBS-IDML 

Before using IDML, be sure that the following files reside on a 
working disk on the default drive: 

IDML.COM, IDMLl.OVL, IDML2.0VL, IDML3.0VL, IDML4.0VL, IDML5.0VL, 
IDML6.0VL, IDML7.0VL, IDML8.0VL 

Omitting IDML3.0VL has the effect of disabling the IDML DEFINE 
command. 

To invoke the interactive MDBS. IDML program, the following 
operating system command line is used: 

IDML 

The user can optionally specify the name of an alternative startup 
file and/or the -B parameter on this command line. The default 
startup file must have the name: STARTUP. If an alternative file 

name is used on the command line, it must be fully qualified (see 
I-B) . If the -B parameter is used, it must be followed by the number 
of bytes being allocated. This number should exceed the minimum DMS 
buffer region size displayed by MDBS. DDL during data base 
initialization (VI-B-4 of the MDBS DDL Manual). For example, to use 
the startup information on the file START. IDM and allocate 2560 bytes, 
the operating system command line is: 

IDML START. IDM -B2560 

If a DMS command status of 31 results, then the number of bytes should 
be increased. If an IDML error of insufficient room in memory results 
with the -B option, then the number of bytes should be reduced. 
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If IDML has been configured with MDBS-RTL, a log file name (fully 
qualified) can be optionally specified on the command line with a -R 
parameter. For instance, to execute IDML with a log file named 
LOG. SUB, 

IDML START. IDM -B2560 -RLOG.SUB 

would be used. If a log file name is omitted from a command line, the 
log file name in the DDL specification is assumed. 

When switching floppy disks to change on-line areas, exit from 
IDML, switch the disks, press control-C and re-enter IDML. 


C. MDBS-QRS 

Before using QRS, be sure that the following files reside on a 
working disk on the default drive: 

QRS.COM, QRS0.OVL, QRSl.OVL, QRS2.0VL, QRS3.0VL, QRS4.0VL, 

QRS5.0VL, QRS6.0VL, QRS7.0VL, QRS8.0VL, QRS9.0VL, QRS10.OVL 

Omitting QRS3.0VL has the effect of disabling the DEFINE command. 

To invoke the interactive MDBS. QRS program, the following 
operating system command line is used: 

QRS 

The user can optionally specify the name of an alternative startup 
file and/or the -B parameter on this command line. The default 
startup file must have the name: STARTUP. If an alternative file 

name is used on the command line, it must be fully qualified (see 
I-B) . If the -B parameter is used, it must be followed by the number 
of bytes being allocated. This number should exceed the minimum DMS 
buffer region size displayed by MDBS. DDL during data base 
initialization (VI-B-4 of the MDBS DDL Manual). For example, to use 
the startup information on the file START. QRS and allocate 2560 bytes, 
the operating system command line is: 

QRS START.QRS -B256 0 

If a DMS command status of 31 results, then the number of bytes should 
be increased. If a QRS error of insufficient room in memory results 
with the -B option, then the number of bytes should be reduced. 

The special format generated by the SPEW command in this 
environment is the .CAL file format of SuperCalc (version 1.07 and 
greater). When SPEW is used, the file name specified with the FN 
parameter should have the .CAL extension so that it can be immediately 
used as input to SuperCalc. 
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A fully qualified file name roust be used with the QRS READ 
command and with the FN parameter (see I-B). When the READ command is 
used, the file name must be in quotes (either single or double) . 

When switching floppy disks to change on-line areas, exit QRS, 
swich disks, press control-C, and re-enter QRS. 


D. MDBS-DMD 

To invoke the interactive MDBS.DMU program, the following 
operating system command line is used: 

DMU 


E. MDBS-RCY 

A log file used with the RTL form of MDBS must be a fully 
qualified file name within CP/M (see I-B). To invoke the interactive 
MDBS.RCV program, the following operating system command line is used: 

RCV 

B£ sues tSi make all necessa ry backups before using RCV. 

The log buffer size in this environment is 128 bytes. 
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Appendix A 

Pim:i INV QC AIIQM 


CALL ALTEOS 

CMD$="SET1 , SET2 , SET3 " 

CALL AMM 

CMD$= "SETl , SET2 , SET3 " 

CALL AMO 

CMD$= "SETl , SET2 , SET3 " 

CALL AOM 

CMD$="SET1,SET2,SET3" 

CALL AOO 

CMD$="BLK" 

CALL AO I 

CMD$="BLK" 

CALL ecu 

CMD$="RECORD, AREA,BLK" 

CALL CRA 

CMD$="RECORD,BLK" 

CALL CRS 

CALL DBCLS 

CMD$="AREA" 

CALL DBCLSA 

CMD$="BLK" 

CALL DBENV 

CMD$="BLK" 

CALL DBOPN 

CMD$="AREA,BLK" 

CALL DBOPNA 

CALL DBSAVE 

CMD$="BLK" 

CALL DBSTAT 

X$="BLK" :X%=n 

CALL DEFINE(X$,X%, vl , . . . ,vn) 
CALL DRC 


CMD$="SET" 

CALL DRM 

CMD$="SET" 

CALL DRO 

X$="BLK" :X%=n 

CALL EXTEND (X$, X%, vl,. .. ,vn) 

CMD$="RECORD,BLK" 

CALL FDRK 

CMD$="SET" 

CALL FFM 

CMD$="SET" 

CALL FFO 

CMD$="AREA" 

CALI FFS 

CMD$="SET" 

CALL FLM 

CMD$="SET" 

CALL FLO 

CMD$="ITEM, SET,BLK" 

CALL FMI 

CMD$="SET,BLK" 

CALL FMSK 

CMD$="SET" 

CALL FNH 

CMD$="ITEM,SET,BLK" 

CALL FNMI 

CMD$="SET,BLK" 

CALL FNMSK 

CMD$="SET" 

CALL FNO 

CMD$= "ITEM, SET, BLK" 

CALL FNOI 

CMD$="SET,BLK" 

CALL FNOSK 
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CMD$="AREA" 

CMD$="SET" 

CALL FNS 

CALL lOS 

CMD$= "ITEM, SET, BLK" 

CALL LGCPLX 

CALL FOI 

CALL LGENDX 

CMD$="SET,BLK" 
CALL FOSK 

CMD$=="BLK" 
CALL LGFILE 

CMD$="SET " 
CALL FPM 

CALL LGFLSH 

CMD$="SET" 

CMD$="BLK" 

CALL FPO 

CALL LGMSG 

CMD$="RECORD,BLK" 

CMD$="BLK" 

CALL FRK 

CALL MAU 

CMD$="BLK" 

CMD$="BLK" 

CALL GETC 

CALL MCC 

CMD$="SET,BLK" 
CALL GETM 

CALL MCF 


CALL MCP 

CMD$="SET,BLK" 
CALL GETO 

CMD$="RECORD" 
CALL MRTF 

CMD$="ITEM,BLK" 
CALL GFC 

CMD$="RECORD" 
CALL MRTP 

CMD$="ITEM,SET,BLK" 
CALL GFM 

CMD$="SET" 
CALL MSF 

CMD$=" ITEM, SET, BLK" 
CALL GFO 

CMD$="SET" 
CALL MSP 

CMD$="SET,BLK" 
CALL GMC 

CALL NCI 

CMD$="SET,BLK" 

CMD$="ITEM,BLK" 

CALL GOC 

CALL PFC 

CMD$="BLK" 

CMD$="ITEM,SET,BLK 

CALL GTC 

CALL PFM 

CMD$="SET,BLK" 

CMD$="ITEM,SET,BLK 

CALL GTM 

CALL PFO 

CMD$="SET,BLK" 

CMD$="BLK" 

CALL GTO 

CALL PIFD 

CMD$="SET" 

CMD$="BLK" 

CALL IMS 

CALL PUTC 


A- 2 


COPYRIGHT 1981.1982 Micro Oat-a Race cxre4-o 


T 


CMD$="SET,BLK" 

CALL PDTM 

CMD$="SET,BLK" 

CALL PDTO 

CMD$="SET" 

CALL RMS 

CMD$="SET" 

CALL ROS 

CMD$="SET" 

CALL RSM 

CMD$="SET" 

CALL RSO 

CMD$="SET" 

CALL SCM 

CALL SCN 

CMD$="SET" 

CALL SCO 

CMD$="BLK" 

CALL SCU 

I%=buf size 

CALL SETPBF(BUF (0) ,1%) 

CMD$="SET" 

CALL SMC 

CMD$="SET" 

CALL SME 

CMD$="SET1,SET2" 

CALL SMM 

CMD$="SET" 

CALL SMN 

CMD$="SET1,SET2" 

CALL SMO 

CMD$="SET,BLK" 

CALL SMU 

CMD$="SET" 

CALL SOC 

CMD$="SET" 

CALL SOE 

CMD$="SET1,SET2" 

CALL SOM 


CMD$="SET" 

CALL SON 

CMD$="SET1,SET2" 

CALL SOO 

CMD$="SET,BLK" 

CALL SOU 

CMD$="BLK" 

CALL sue 

CMD$="SET,BLK" 

CALL SUM 

CMD$="BLK" 

CALL SUN 

CMD$="SET,BLK" 

CALL SUO 

CMD$="BLK" 

CALL SUU 

CMD$="RECORD" 

CALL TCT 

CMD$="RECORD,SET" 
CALL TMT 

CMD$="RECORD, SET" 
CALL TOT 

CALL TRABT 

CALL TRBGN 

CALL TRCOM 

CALL UNDEF 

CALL VARCS(E0%) 

CALL VARCMD(CMD$) 

CMD$="SET1 , SET2 , SETS 
CALL XMM 

CMD$="SET1 ,SET2 ,SET3 
CALL XMO 

CMD$="SET1 ,SET2 ,SET3 
CALL XOM 

CMD$="SET1 , SET2 , SETS 
CALL XOO 
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CMD$="ALTEOS" 

CALL DHS 

CMD$="AHM,SET1 ,SET2 ,SET3 " 

CALL DMS 

CMD$= "AMO, SETl , SET2 , SET3 " 

CALL DMS 

CMD$="A0H,SET1 ,SET2 ,SET3" 

CALL DMS 

CMD$="AOO,SETl ,SET2 ,SET3 " 

CALL DMS 

CMD$="ADI,BLK" 

CALL DMS 

CMD$="CCO,BLK" 

CALL DMS 

CMD$="CRA, RECORD, AREA, BLK" 

CALL DMS 

CMD$= "CRS , RECORD, BLK " 

CALL DMS 

CMD$="DBCLS" 

CALL DMS 

CMD$="DBCLSA,AREA" 

CALL DMS 

CMD$="DBENV,BLK" 

CALL DMS 

CMD$="DBOPN,BLK" 

CALL DMS 

CMD $= " DBOPNA, AR EA , BLK " 

CALL DMS 

CMD$="DBSAVE" 

CALL DMS 

CMD $= " DBSTAT , BLK " 

CALL DMS 

X$="DEFINE,BLK" :X%=n 

CALL DMSD (E0%,X$,X%, vl , . . . ,vn) 

CMD$="DRM,SET" 

CALL DMS 


CMD$="DRO,SET" 

CALL DMS 

X$= EXTEND, BLK" :X%=n 

CALL DMSD(E0% ,X$,X%, vl , . . . ,vn) 

CMD$="FDRK, RECORD, BLK" 

CALL DMS 

CMD$="FFM,SET" 

CALL DMS 

CHD$="FFO,SET" 

CALL DMS 

CMD$="FFS, AREA" 

CALL DMS 

CMD$="FLM,SET" 

CALL DMS 

CMD$="FLO,SET" 

CALL DMS 

CMD$="FHI, ITEM, SET, BLK" 

CALL DMS 

CMD$="FHSK,SET,BLK" 

CALL DMS 

CMD$="FNM,SET" 

CALL DMS 

CMD$="FNMI, ITEM, SET, BLK" 

CALL DMS 

CMD$="FNMSK,SET,BLK" 

CALL DMS 

CMD$="FNO,SET" 

CALL DMS 

CMD $="FNOI, ITEM, SET, BLK" 

CALL DMS 

CMD$="FNOSK,SET,BLK" 

CALL DMS 

CMD $="FNS, AREA" 

CALL DMS 

CMD$="FOI, ITEM, SET, BLK" 

CALL DMS 
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CMD$="FOSK,SET,BLK" 
CALL DMS 

CMD$="LGFILE,BLK" 
CALL DMS 


CMD$="FPM,SET" 
CALL DMS 

CMD$="LGFLSH" 
CALL DMS 


CMD$="FPO,SET" 
CALL DMS 

CMD$="LGMSG,BLK" 
CALL DMS 


CMD$="FRKr RECORD, BLK" 
CALL DMS 

CMD$="MAD,BLK" 
CALL DMS 


CMD$="GETC,BLK" 
CALL DMS 

CMD$="HCC,BLK" 
CALL DMS 


CMD$="GETH,SET,BLK" 
CALL DMS 

CMD$="HCF" 
CALL DMS 


CMD$="GETO,SET,BLK" 
CALL DMS 

CMD$="MCP" 
CALL DMS 


CMD$="GFC, ITEM,BLK" 
CALL DMS 

CMD$= " MRTF , RECORD " 
CALL DMS 


CMD$="GFM, ITEM, SET, BLK" 
CALL DMS 

CMD$="MRTP, RECORD" 
CALL DMS 


CMD$="GFO, ITEM, SET, BLK" 
CALL DMS 

CMD$="MSF,SET" 
CALL DMS 


CMD$="GMC,SET,BLK" 
CALL DMS 

CMD$="HSP,SET" 
CALL DMS 


CMD$="GOC,SET,BLK" 
CALL DMS 

CMD$="NCI" 
CALL DMS 


CMD$="GTC,BLK" 
CALL DMS 

CMD$="PFC, ITEM, BLK" 
CALL DMS 


CMD$="GTM,SET,BLK" 
CALL DMS 

CMD$="PFM, ITEM, SET, BLK" 
CALL DMS 


CMD$="GTO,SET,BLK" 
CALL DMS 

CMD$="PFO, ITEM, SET, BLK" 
CALL DMS 


CMD$="IMS,SET" 
CALL DMS 

CMD$="PIFD,BLK" 
CALL DMS 


CMD$="IOS,SET" 
CALL DMS 

CMD$="PUTC,BLK" 
CALL DMS 


CMD$="LGCPLX" 
CALL DMS 

CMD$="PUTM,SET,BLK" 
CALL DMS 


CMD$="LGENDX" 
CALL DMS 

CMD$="PUTO,SET,BLK" 
CALL DMS 
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CMD$="RMS,SET" 

CALL DMS 

CMD$="ROS,SET" 

CALL DMS 

CMD$="RSM,SET" 

CALL DMS 

CMD$="RSO,SET" 

CALL DMS 

CMD$="SCM,SET" 

CALL DMS 

CMD$="SCN" 

CALL DMS 

CMD$="SCO,SET" 

CALL DMS 

CMD$="SCD,BLK" 

CALL DMS 

I%=buf size 

CALL SETPBF(BUF{0) ,1%) 

CMD$="SMC,SET" 

CALL DMS 

CMD$="SME,SET" 

CALL DMS 

CMD$="SMM,SET1,SET2" 
CALL DMS 

CMD$="SMN,SET" 

CALL DMS 

CMD$= "SMO, SETl , SET2 " 
CALL DMS 

CMD$="SMU,SET,BLK" 
CALL DMS 

CMD$="SOC,SET" 

CALL DMS 

CMD$="SOE,SET" 

CALL DMS 

CMD$="SOM, SETl , SET2" 
CALL DMS 

CMD$="SON,SET" 

CALL DMS 


CMD$="SCX), SETl , SET2" 

CALL DMS 

CMD$="SOD,SET,BLK" 

CALL DMS 

CMD$="SUC,BLK" 

CALL DMS 

CMD$="SUMrSET,BLK" 

CALL DMS 

CMD$="SUN,BLK" 

CALL DMS 

CMD$="SDO,SET,BLK" 

CALL DMS 

CMD$="SUD,BLK" 

CALL DMS 

CMD$="TCT, RECORD" 

CALL DMS 

CMD$="TMT, RECORD, SET" 
CALL DMS 

CMD$="TOT, RECORD, SET" 
CALL DMS 

CMD$="TRABT" 

CALL DMS 

CMD$="TRBGN" 

CALL DMS 

CMD$="TRCOM" 

CALL DMS 

$X="UNDEF" 

CALL DMSD 

CALL VARCS(E0%) 

CALL VARCMD(CMD$) 

CMD$="XMM, SETl , SET2 , SET3 
CALL DMS 

CMD?="XHO,SETl ,SET2 ,SET3 
CALL DMS 

CMD$= "XOM, SETl , SET2 , SET3 
CALL DMS 

CMD$="XOO,SETl ,SET2 ,SET3 
CALL DMS 


A- 6 


(C) COPYRIGHT 1981,1982 Micro Data Base Systems. Tnr- 


APPENDIX B 


DHL Retrieval/Write Command Groups 


(C) COPYRIGHT 1981,1982 Micro Data Base Systems, Inc. 



Appendix B 


R1W0 


alteos 

extend 

f msk 

frk 

smm 

sor 

varcs 

dbcls 

fdrk 

f nm 

scm 

smo 

sr c 


dbopn 

f f m 

f no 

SCO 

smr 

srm 


dbsave 

ffo 

f osk 

scr 

soc 

sro 


dbstat 

f Im 

f pm 

setpbf 

som 

undef 


define 

flo 

f po 

smc 

soo 

var cmd 



R2W0 

alteos 

fdrk 

f no 

geto 

SCO 

soc 

undef 

dbcls 

f f m 

f osk 

getr 

scr 

som 

var cmd 

dbopn 

ffo 

fpm 

gf c 

setpbf 

soo 

varcs 

dbsave 

f Im 

f po 

gfm 

smc 

sor 


dbstat 

flo 

frk 

gf o 

smm 

sr c 


define 

fmsk 

getc 

gfr 

smo 

srm 


extend 

f nm 

getm 

scm 

smr 

sro 



R3W0 

alteos 

define 

f nmi 

geto 

sen 

soe 

suo 

aui 

extend 

f nmsk 

getr 

SCO 

som 

suu 

cct 

fdrk 

f no 

gf c 

scr 

son 

tet 

ecu 

ffm 

f noi 

gfm 

scu 

soo 

tmt 

emt 

ffo 

f nosk 

gf 0 

setpbf 

sor 

toggle 

cot 

ffs 

f ns 

gfr 

smc 

sou 

tot 

dbcls 

f indm 

f oi 

gmc 

sme 

sr c 

undef 

dbclsa 

f indo 

f osk 

goc 

smm 

srm 

var cmd 

dbenv 

f Im 

fpm 

gtc 

smn 

srn 

varcs 

dbopn 

flo 

f po 

gtm 

smo 

sro 


dbopna 

f mi 

frk 

gto 

smr 

sue 


dbsave 

fmsk 

getc 

nci 

smu 

sum 


dbstat 

f nm 

getm 

scm 

soc 

sun 
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RlHl 


alteos 

def ine 

f nro 

Igcplx 

scr 

soo 

undef 

cr 

extend 

f no 

Igendx 

setpbf 

sor 

var cmd 

era 

fdrk 

f osk 

Igf ile 

sme 

sr c 

var cs 

ers 

f f m 

fpm 

Igf Ish 

smm 

srm 


dbcls 

ff o 

f po 

Igmsg 

smo 

sro 


dbopn 

f Im 

frk 

pif d 

smr 

tr abt 


dbsave 

flo 

ims 

sem 

soc 

trbgn 


dbstat 

fmsk 

iOE 

SCO 

som 

tr com 



R2W1 


alteos 

extend 

f osk 

gf m 

Igmsg 

smr 

trbgn 

cr 

fdrk 

fpm. 

gf o 

pif d 

soc 

tr com 

era 

f f m 

f po 

gfr 

sem 

som 

undef 

ers 

ffo 

frk 

ims 

SCO 

soo 

var cmd 

dbcls 

f Im 

getc 

ios 

scr 

sor 

varcs 

dbopn 

flo 

getm 

Igcplx 

setpbf 

sre 


dbsave 

fmsk 

geto 

Igendx 

sme 

srm 


dbstat 

f nm 

getr 

Igf ile 

smm 

sro 


define 

f no 

gf c 

Igflsh 

smo 

tr abt 



R3W1 


alteos 

dbstat 

f nmsk 

gf m 

nci 

soc 

suu 

aui 

define 

f no 

gf 0 

pif d 

soe 

tet 

ect 

extend 

f noi 

gfr 

sem 

som 

tmt 

ecu 

fdrk 

f nosk 

gmc 

sen 

son 

toggle 

emt 

f f m 

f ns 

goc 

SCO 

soo 

tot 

cot 

ffo 

f oi 

gtc 

scr 

sor 

trabt 

cr 

ff s 

f osk 

gtm 

scu 

sou 

trbgn 

era 

f indm 

fpm 

gto 

setpbf 

sr c 

tr com 

ers 

f indo 

f po 

ims 

sme 

srm 

undef 

dbcls 

f Im 

frk 

ios 

sme 

srn 

var cmd 

dbclsa 

flo 

getc 

Igcplx 

smm 

sro 

varcs 

dbenv 

fmi 

getm 

Igendx 

smn 

sue 


dbopn 

fmsk 

geto 

Igf ile 

smo 

sum 


dbopna 

f nm 

getr 

Igflsh 

smr 

sun 


dbsave 

f nmi 

gf c 

Igmsg 

smu 

suo 
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R1W2 


alteos 

extend 

f osk 

Igflsh 

puto 

sfr 

sr c 

cr 

fdrk 

f pm 

Igmsg 

putr 

sme 

srm 

era 

f f m 

f po 

pf c 

sem 

smm 

sro 

cr s 

ff o 

frk 

pfm 

SCO 

smo 

trabt 

dbcls 

f Im 

ims 

pf o 

scr 

smr 

trbgn 

dbopn 

f lo 

iOE 

pf r 

setpbf 

soc 

tr com 

dbsave 

f msk 

Igcplx 

pif d 

sf c 

som 

undef 

dbstat 

f nm 

Igendx 

putc 

sf m 

soo 

var cmd 

define 

f no 

Igf il e 

putm 

sf o 

sor 

var cs 


R2W2 


alteos 

f f m 

getc 

Igendx 

puto 

smm 

trbgn 

cr 

ffo 

getm 

Igf ile 

putr 

smo 

tr com 

era 

f Im 

geto 

Igflsh 

sem 

smr 

undef 

ers 

flo 

getr 

Igmsg 

SCO 

SOC 

var cmd 

dbcls 

fmsk 

gf c 

pf c 

scr 

som 

varcs 

dbopn 

f nm 

gfm 

pfm 

setpbf 

SOO 


dbsave 

f no 

gf o 

pf o 

sf c 

sor 


dbstat 

f osk 

gfr 

pfr 

sf m 

sr c 


def ine 

f pm 

ims 

pif d 

sf 0 

srm 


extend 

f po 

ios 

putc 

sfr 

sro 


fdrk 

frk 

Igcplx 

putm 

sme 

trabt 



R3W2 


alteos 

extend 

f ns 

gtm 

puto 

sm^r 

suu 

aui 

fdrk 

f oi 

gto 

putr 

smu 

tet 

cct 

ffm 

f osk 

ims 

sem. 

soc 

tmt 

ecu 

ffo 

f pm 

ios 

sen 

Eoe 

toggle 

emt 

ff s 

f po 

Igcplx 

SCO 

som 

tot 

cot 

f indm 

frk 

Igendx 

scr 

son 

trabt 

cr 

f indo 

getc 

Igf ile 

scu 

soo 

trbgn 

era 

f Im 

getm 

Igflsh 

setpbf 

sor 

tr com 

cr s 

flo 

geto 

Igmsg 

sf c 

sou 

undef 

dbcls 

f mi 

getr 

nci 

sf m 

sr c 

var cmd 

dbcl sa 

fmsk 

gf c 

pf c 

sf o 

srm 

varcs 

dbenv 

f nm 

gfm 

pfm 

sfr 

srn 


dbopn 

f nmi 

gf o 

pf o 

sme 

sro 


dbopna 

f nmsk 

gfr 

pfr 

sme 

sue 


dbsave 

f no 

gmc 

pif d 

smm 

sum 


dbstat 

f noi 

goc 

putc 

smn 

sun 


define 

f nosk 

gtc 

putm 

smo 

suo 
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R1W3 


alteos 

drm 

f no 

Igf Ish 

putr 

sf o 

srm 

cr 

dro 

f osk 

Igmsg 

rms 

sme 

sro 

era 

extend 

f pm 

pf c 

ros 

smm 

trabt 

cr s 

fdrk 

f po 

pf m 

rsm 

smo 

trbgn 

dbcls 

f f m 

frk 

pf o 

r so 

smr 

tr com 

dbopn 

ffo 

ims 

pf r 

ECO 

soc 

undef 

dbsave 

f Im 

ios 

pif d 

scr 

som 

var cmd 

dbstat 

flo 

Igcplx 

putc 

setpbf 

EOO 

var cs 

define 

f msk 

Igendx 

putm 

sf c 

sor 


dr c 

f nm 

Igf ile 

puto 

sf m 

sr c 



R2W3 


alteos 

extend 

frk 

Igendx 

putr 

sfr 

trabt 

cr 

fdrk 

getc 

Igf ile 

rms 

sme 

trbgn 

era 

f f m 

getm 

Igflsh 

ros 

smm 

tr com 

ers 

ffo 

geto 

Igmsg 

rsm 

smo 

undef 

dbcls 

flm 

getr 

pf c 

r so 

smr 

var cmd 

dbopn 

flo 

gf c 

pfm 

sem 

soc 

var cs 

dbsave 

f msk 

gf m 

pf o 

SCO 

som 


dbstat 

f nm 

gf o 

pfr 

scr 

soo 


define 

f no 

gfr 

pif d 

setpbf 

sor 


dr c 

f osk 

ims 

putc 

sf c 

sr c 


drm 

f pm 

ios 

putm 

sf m 

srm 


dro 

f po 

Igcplx 

puto 

sf 0 

sro 



R3W3 


alteos 

drm 

f nosk 

gtm 

putr 

smn 

EUO 

aui 

dro 

f ns 

gto 

rms 

smo 

suu 

cct 

extend 

f oi 

ims 

ros 

smr 

tet 

ecu 

fdrk 

f osk 

ios 

rsm 

smu 

tmt 

emt 

f f m 

f pm 

Igcplx 

rso 

soc 

toggle 

cot 

ffo 

f po 

Igendx 

sem 

soe 

tot 

cr 

f f s 

frk 

Igf ile 

sen 

som 

trabt 

era 

f indm 

getc 

Igflsh 

SCO 

son 

trbgn 

cr s 

f indo 

getm 

Igmsg 

scr 

soo 

tr com 

dbcls 

flm 

geto 

nci 

scu 

sor 

undef 

dbclsa 

flo 

getr 

pf c 

setpbf 

sou 

var cmd 

dbenv 

fmi 

gf c 

pfm 

sf c 

stc 

var cs 

dbopn 

fmsk 

gf m 

pf o 

sf m 

srm 


dbopna 

' ■ f nm 

gf o 

pfr 

sf o 

srn 


dbsave 

f nroi 

gfr 

pif d 

sfr 

sro 


dbstat 

f nmsk 

gmc 

putc 

sme 

sue 


define 

fno 

goc 

putm 

sme 

sum 


dr c 

fnoi 

gtc 

puto 

smm 

sun 



B-4 


(C) COPYRIGHT 1981,1982 Micro Data Base Systems, Inc 



R1W4 


alteos 

dbstat 

fmsk 

Igendx 

putr 

sf r 

trabt 

amin 

define 

f nm 

Igf ile 

rms 

sme 

trbgn 

amo 

dr c 

f no 

Igf Ish 

ros 

smm 

tr com 

ams 

drm 

f osk 

Igmsg 

rsm 

smo 

undef 

aom 

dro 

f pm 

pf c 

r so 

smr 

var cmd 

aoo 

dr r 

f po 

pf m 

sem 

soc 

var cs 

cr 

extend 

frk 

pf o 

SCO 

som 

xmm 

era 

f drk 

getr 

pfr 

scr 

soo 

xmo 

cr s 

f f ro 

gffr 

pif d 

setpbf 

sor 

xom 

dbcls 

ffo 

ims 

putc 

sf c 

sre 

xoo 

dbopn 

f Im 

ios 

putm 

sf m 

srm 


dbsave 

flo 

Igcplx 

puto 

sf 0 

sro 



R2W4 

alteos 

dre 

f pm 

Igendx 

ros 

soc 

xmo 

amm 

drm 

f po 

Igf ile 

rsm 

som 

xom 

amo 

dro 

frk 

Igf Ish 

rso 

soo 

xoo 

ams 

drr 

getc 

Igmsg 

sem 

sor 


aom 

extend 

getm 

pf c 

SCO 

sr c 


aoo 

fdrk 

geto 

pf m 

scr 

srm 


cr 

ffm 

getr 

pf o 

setpbf 

sro 


era 

ffo 

gf c 

pfr 

sf c 

trabt 


ers 

flm 

gfm 

pif d 

sf m 

trbgn 


dbcls 

flo 

gf o 

putc 

sf 0 

tr com 


dbopn 

fmsk 

gf r 

putm 

sfr 

undef 


dbsave 

f nm 

ims 

puto 

sme 

var cmd 


dbstat 

f no 

ios 

putr 

smm 

varcs 


define 

f osk 

Igcplx 

rms 

smr 

xmm 



R3W4 

alteos 

dbsave 

f nmi 

gmc 

putm 

smm 

suo 

amm 

dbstat 

f nmsk 

goc 

puto 

smn 

suu 

amo 

define 

f no 

gtc 

putr 

smo 

tet 

ams 

dr c 

f noi 

gtm 

rms 

smr 

tm.t 

aom 

drm 

f nosk 

gto 

ros 

smu 

toggle 

aoo 

dro 

f ns 

ims 

rsm 

soc 

tot 

aui 

drr 

f oi 

ios 

rso 

soe 

trabt 

cct 

extend 

f osk 

Igcplx 

sem 

som 

trbgn 

ecu 

fdrk 

f pm 

Igendx 

sen 

son 

tr com 

emt 

ffm 

f po 

Igf ile 

ECO 

soo 

undef 

cot 

ffo 

frk 

Igf Ish 

scr 

sor 

var cmd 

cr 

ffs 

getc 

Igmsg 

ECU 

sou 

varcs 

era 

f indm 

getm 

nci 

setpbf 

sr c 

xmm 

cr s 

f indo 

geto 

pf c 

sf c 

srm 

,xmo 

dbcls 

flm 

getr 

pf m 

sf m 

srn 

xom 

dbclsa 

flo 

gf c 

pf o 

sf 0 

sro 

xoo 

dbenv 

f mi 

gfm 

pfr 

sfr 

sue 


dbopn 

fmsk 

gfo 

pifd 

sme 

sum 


dbopna 

f nm 

gfr 

putc 

sme 

sun 
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Appendix C 


This alternative installation method allows the use of chaining 
within application programs. If chained programs are used with a DMS 
that has been installed as described here, then DBSAVE roust be the 
last command invoked prior to chaining and any variables used in the 
VARCS, VARCMD, DEFINE, EXTEND, and SETPBF commands must be in COMMON. 

A. Installation 

Copy MKDMS, MKTAB, the MLINK files, DBRUN.REL, DMS.REL, 
OSCPM.REL, A.REL, Z.REL, and BASCOM80.REL to the same working disk. 

Now execute MKDMS. This interactive installation program 
generates a command file which will create a DMS runtime module that 
supports desired DML commands. Appendix B shows fifteen predefined 
DML command groupings. One of these groupings can be selected or a 
customized group of DML commands can be specified during interaction 
with MKDMS. 

When MKDMS prompts for a response, the permissible responses are 
indicated in parentheses and the default response appears in square 
brackets. Pressing the ENTER key (alone) yields the default response. 

Below is a sample session using MKDMS. In this example, the 
command grouping R2W1 is selected and the default command file name of 
DMS7000 is assigned to drive A. Operator responses are shown in bold 
face type. 

MKDMS vl.Ol 

(C) COPYRIGHT 1982, Micro Data Base Systems, Inc. 

This program creates a command file that will create a DMS 
'runtime' module supporting selected DML commands. 

First, you roust determine where in memory the DMS runtime 
module will reside. This is called the ORG address (org is 
derived from the word origin by the usual means of dropping 
various letters from a word until it is barely 
decypherable) . You should org the DMS runtime module as 
high as possible in memory. If you are not sure where to 
org it, pick a nice high address (e.g., AOOO). If the 
address is too high, the loader that MKDMS prefixes to the 
runtime module will inform you as to the highest org address 
possible for that runtime module. Currently the average 
runtime module size is about 22k or 5800h. 

Enter desired org address (in hex) ; 7000 * 


*Note: This org address is hardware/operating system dependent; 

7000 is workable in most environments, but if this address 
fails another address should be chosen. Select a very high 
address. If it is too high, you will be informed as to the 
maximum address that can be used in your environment. In 
general it is advisable to use this maximum address. 
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Do you have an RTL form of MDBS (y/n) [o']? J 

Do you have a MULTI USER system (y/n) Ehi? 

Do you want FAST I/O (y/n) [n]? 

Do you want to disable CALC processing (y/n) [nl? 

Do you want to disable DATE processing (y/n) [nl? 

Do you want to disable FLOAT processing (y/n) [nl? 

Do you want to disable IDEC processing (y/n) (nl? 

Do you want to disable REAL processing (y/n) In]? 

Do you want to disable TIME processing (y/n) [nl? 

Next, select the language interface you intend to use. The 
languages supported are: 

1) BASCOM > 

2) CB80 

3) COBOL80 

4) FORTRAN80 

5) PASCALMT+ 

6) PASCALZ 

7) ASM' 

8) C 

Enter desired language: BASCOM 

Now, you must select which DMS commands you need to be 
supported by the runtime module. This is accomplished by 
selecting one of the 15 predefined groupings that are listed 
in your system specific manual or by selecting each DML 
command separately as it is displayed. The groupings are 
RnWro where n is a digit from 1 to 3 and m is a digit from 0 
to 4. If you want to select your own group of DML commands, 
enter an 'S'. For convenience, if you decide you need all 
DML commands, enter an 'A'. 

Enter the desired command level (RnWm/A/S) [S3 : R2W1 

Next, the runtime module's output file (fn) and/or drive 
must be specified. The output file name will be used for 
the four different files created by MKDMS. A single name 
(fn) is used to keep track of which set of files belongs to 
which runtime module. These four files will be named: 

fn.MLA = list of commands for MLINK 
fn.COM’ '=' dms runtime produced by MLINK 

fn.REL = file' produced by MKTAB of dms command locations 
fn.SYM = symbol table produced by MLINK and used as input 
to MKTAB 

Remember, just enter a name and/or a drive. The proper 
extensions are automatically appended by MKDMS. 

'•'i 1 

Enter output file name and/or drive [DMS7000] : a: 
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Finally, there is the issue of where to find the 'utility' 
files needed by MKDMS. The files in question are: 

MLINK.COM, MKTAB.COM, DBRUN.REL, DMS.REL, OSCPM.REL, 
A.REL, Z.REL, and BASCOM80.REL. 

These files will be used to construct your DMS runtime 
routine module, when you execute the command file. 

Enter utilities drive, if any: 

One moment whilst MKDMS generates the command file ... 

There now exists a file (a:DMS7000.SUB) which contains the 
commands that will create your DMS runtime module. To 
execute this command file, enter the following command: 
SUBMIT a:DMS7000.SUB 

Now, to create the DMS runtime module, execute the command file 
created by MKDMS. This command file invokes the MLINK and MKTAB 
programs. For example: 

SUBMIT A:DMS7000.SDB 

, . , , MDBS MLINK Vl.02 

(C) COPYRIGHT 1982, Micro Data Base Systems, Inc. 

Lafayette, IN 47902 

DBRUN: 

DERUN 
1 modules 

BASCOM80 : 

DDMDBS ALTEOS VARCMD VARCS LNBCOM GETFWA EIINT lEINT 
EIREAL lEREAL EISTR lESTR EICHAR lECEAR 
14 modules 

DMS : 

CRS FDRK F2MDBS FRK IMS RCMDES DBSTAT DEFINE 

FDMDBS IFMDBS PJMDBS SMC DBOPN DSMDBS FEMDBS YLMDBS 

GETC GFC GUMDBS IJMDBS F8MDBS YKMDBS YMMDBS PNMDBS 

EBMDBS DCMDBS POMDBS IKMDBS DEMDBS BBMDBS C8MDBS YIMDBS 

YJMDBS DBCLS DBSAVE ECMDBS GDMDBS IIMDBS PGMDBS GOMDBS 

RAMDBS SCM SCR SRC UAMDBS ACMDBS PUMDBS DQMDBS 

MNMDBS PAMDBS UHMDBS BDMDBS NBMDBS NCMDBS SMMDBS C9MDBS 

YNMDBS SJMDBS SKMDBS SLMDBS ZBMDBS CDMDBS GNM^BS GSMDBS 

SOMDBS ZAMDBS NDMDBS NFMDBS 

58 modules 

OSTRS: , ■ , 

DFCL DESK DFTE DFOPN DFRW DFGN DFPN FCB 
8 modules v i 

A: 

DIVZ8 DIVZ16 MULZ16 MULZ8 
4 modules 
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Z: 

ZZZLWA , ^ 

, ' 1 modules 

. V: .Code = 9280 Common = E904 Data = EBB2 

Xfer =9280 Next = EFDB 

DBRUN; .. 

DBRUN - - • ■ 

BASCOM80: 

DDMDBS ALTEOS, VARCMD VARCS LNBCOM GETFWA EUNT lEINT 
EiREAL lEREAL EISt'R lESTR EICHAR lECHAR 

DMS: 

CRS FDRK. F.2MDBS FRK , IMS RCMDBS DBSTAT DEFINE 

FDMDBS IFMDBS PJMDBS SMC DBOPN DSMDBS FEMDBS YLMDBS 

GETC GFC T GUMpBS IJMDBS vFSMDBS XKMDBS YMMDBS PNMDBS 
EBMDBS DCMDBS POMDBS IKMDBS DEMDBS BBMDBS C8MDBS YIMDBS 
, YJMDBS DBCLS DBSAVE ECMDBS GDMDBS IIMDES§ PGMDBS GOMDBS 

RAMDBS SCM SCR ' SRC^ BAMDBS AC^DpS. PUKDBS DQMDBS 

MNMDBS PAMDBS UHMDBS BDMDBS NBMDBS NCMDBS SMMDBS C9MDBS 

YNMDBS SJMDBS SKMDBS SLMDBS ZBf^DBS'. CDMDB^ GNMDBS GSMDBS 

SOMDBS ZAMDBS NDMDBS NFMDBS 

OSTRS; 

DFCL DFSK DFTE DFOPN DFRW DFGN DFPN FCB 

A: 

DIVZ8 DIVZ16 MULZ16 MULZ8 
Z; 

ZZZLWA 

Linking complete. 

MKTAB vl.Ol [82/03/26] 

COPYRIGHT (C) 1982, Micro Data Base Systems, Inc. 

Reading directive file DMS7000/MLA: 1 
Reading symbol table DMS7000:! 

Writing rel file DMS7000:! 

The installation of DMS is now complete. 
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B. Testing 


After the installation of MDBS. DDL and MDBS.DMSr the sample DDL 
specification and sample application program can be used to test the 
success of the installation procedure. The sample application 
requires a minimal command grouping of R2W1. 

1. To initialize the sample data base, enter: 

DDL SAMPLE 

2. Compile the sample application program by entering: 

BASCOM =SAMFLE/E/C 

3-. Resolve unsatisfied externals as follows: 

L8C SAMPLE, DMS7000,SAMPLE/N/E 

4. P,un the sample application program by executing DMS7000, 
' ’ using dAilPLE as an argument. 

^ DMS7000 SAMPLE " 
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Second Alternative Installation Method 
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Appendix D 


This appendix describes how to use MDBS in conjunction with 
chained BASCOM programs (with BASCOM'S BRUN option) . 

Prepare your application programs (using direct DML invocation) 
as described in Chapter VII of this manual, with the following 
exceptions: 

1. Before invoking VARCS in the first of the chained modules, 
insert the following call: 

CALL DBINIT 

Note that DBINIT should never be called while the data base 
is open. 

2. Any variable that is used with a DEFINE or EXTEND command 
must have been declared in a COMMON statement. 

3. The array used with SETPBF roust have been declared in a 
COMMON statement. 

4. The first two DML commands of any chained module (containing 
DML commands) roust be; 

CALL VARCS (E0%) 

CALL VARCMD(CMD?) 

5. The last DML command of any chained module (containing DML 
commands) must be: 

CALL DBCHN 

DBCHN automatically performs a DBSAVE. (Exception; In the 
multiuser case, DBCHN is not used. Instead, the data base 
must be closed before chaining and then reopened after 
VARCMD in the chained module.) 


The control procedure for compiling, linking and executing a 
chained application program is as follows; 

1. Before linking, use the DATOCOD utility to prepare new 
relocatable files for use in the linking process. You 
choose the new file names. For example, DMS.REL becomes 
DMSC.REL. DATOCOD transfers MDBS constants from the data 
areas to the code areas. This is accomplished by entering 
the following operating system command lines: 


(or for RTL form of DMS: 


DATOCOD DMS.REL DMSC.REL 
DATOCOD RTL.REL RTLC.REL) 

DATOCOD BASCOM80.REL BASCOMC.REL 
DATOCOD A.REL AC.REL 
DATOCOD OSCPM.REL OSCPMC.REL 
DATOCOD Z.REL ZC.REL 
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If you have a library' nanager such a LIB; or LIB80, create 
CPMDMS.REL by entering the following operating system 
command line: 

LIB CPMDMS=DMSC,OSCPMC,AC,ZC 

This assumes that the DMSC-RELr OSCPMC.REL, AC.REL, and 
ZC.REL files are on the , def aait drive.: If you intend to use 

the RTL form of MDBS^ the i same approach is employed, except 
use RTLC instead of D^lSCwa^'d CPMRTL instead of CPMDMS. 

2. Compile the;: program as -usuBil without the /O option .- 

3. Use MLINK. with" -KO as; the first argument. If you used the 
library manager in: step 1, then enter; 

MLINK -KO PRG COMDEF BASCOMC -LCPMDMS r f 

where PRG is the object program and where COMDEF. REL, 
BASLIB.REL, and BCLOAD (the latter two are supplied with 
BASCOM) are on the default drive at link time. For the RTL 
form of MDBS^ use. -LCPMRTL instead of -LCPMDMS. . 

If you did not use a library manager in step 1, then use the 
following MLINK command, line,; , 

MLINK -KO PRG COMDEF BASCOMC -LDMSC -LOSCPMC ' -LAC -LZC 

where PRG is on the object program and where COMDEF. REL, 
BASLIB.REL and BCLOAD are on the default drive at link time. 
For the RTL form of MDBS, use -LRTLC instead of -LDMSC. 

The -KO option used with MLINK prevents the initialization 
of initialized common blocks, so that chaining can occur. 
Ignore the MLINK error message "common block //size 
mismatch" when running MLINK. 

' - i. < ' ' ^ . j ■ . , i .O ;■ V ‘ i i ' j 1 :: ' : ' v i • 

4. - fiEepea t .steps j2 and 3 for each of therPther, program s ,inv;,olved 

in the chaining. ' CGMDEF.imust be liilked, ^even or a ?chaitied 
program containing no DML commands. 

5. Execute the linked program; 


PRG 

To test this procedure, five files containing chained modules are 
provided SAMPLECl. BAS, ...,, SAMPLEC5.BAS (Exception; , SAMPLEC5 is not 
provided with multiuser versions of MDBS). Use steps 2 and 3 above 
for each of. these five files. Then .execute the program by entering; 

SAMPLECl 


•j; 
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